home *** CD-ROM | disk | FTP | other *** search
/ Night Owl 6 / Night Owl's Shareware - PDSI-006 - Night Owl Corp (1990).iso / 023a / prop_man.zip / QOC.SAB < prev    next >
Text File  |  1991-09-13  |  2KB  |  59 lines
  1. SET MESSAGES OFF
  2. LABEL START
  3. CLEAR ALL V
  4. CLS
  5. display cp.dis
  6. write "QOC.SAB" AT 2,36
  7. WRITE "FIVE DAY QUIT OR COMPLY NOTICE" AT 4,23
  8. LABEL FILL
  9. FILLIN ADDCODE     USING "Address Code............... -->  " AT 5,1
  10. set v who to tenant1 in cur.mast where add.code = .addcode
  11. set v whr to address in cur.mast where add.code = .addcode
  12. set v b4 to warndate in cur.mast where add.code = .addcode
  13. write "Current Tenant: " at 7,10
  14. write .who at 7,26
  15. write "Address: " at 8,10
  16. write .whr at 8,19
  17. write "Previous Warnings: " at 8,50
  18. write .b4 at 8,68
  19. set v ga to ""
  20. fillin ga using "Continue (Y/N)? " at 10,10
  21. if ga = "n" or ga = "N" then ; goto fin ; endif
  22. WRITE "Enter Compliance Criteria........      " at 12,1
  23. fillin comply using " " at 13,1
  24. Write "Enter Compliance Alternative.....      " at 15,1
  25. fillin orelse using " " at 16,1
  26. write "Enter Legal Description..........      " AT 18,1
  27. fillin descript using " " at 19,1
  28. label ask
  29. set v prnt to ""
  30. fillin prnt using        "(P)rint, (R)edo or (Q)uit    -->  " at 21,1
  31.   if prnt = "p" then ; goto print ; endif
  32.   if prnt = "r" then ; cls ; goto fill ; endif
  33.   if prnt = "q" then ; cls ; goto fin ; endif
  34. write "                                                        " at 21,1
  35.   cls ; goto ask
  36. label print
  37. OUTPUT PRINTER
  38. PRINT QOc    WHERE ADD.CODE = .ADDCODE
  39. NEWPAGE
  40. PRINT QOc    WHERE ADD.CODE = .ADDCODE
  41. NEWPAGE
  42. output screen
  43. CHANGE REASON TO "Quit Or Comply Notice Expires Today" IN CUR.MAST WHERE +
  44.    add.code = .addcode
  45. CHANGE REC.CALL TO (.#DATE + 5) IN CUR.MAST WHERE ADD.CODE = .ADDCODE
  46. CHANGE EXP.DATE TO (.#DATE + 15) IN CUR.MAST WHERE ADD.CODE = .ADDCODE
  47. change sus.vac to "QC" in cur.mast where add.code = .addcode
  48. change warndate to .#date in cur.mast where add.code = .addcode
  49. CLS
  50. label fin
  51. FILLIN Y/N USING "Run Quit Or Comply Program Again?  " AT 12,23
  52. IF Y/N = "Y" THEN
  53. GOTO START
  54. ENDIF
  55. label stop
  56. cls
  57. return
  58.  
  59.